home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
winpas.zip
/
CASE.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1990-08-07
|
267b
|
18 lines
program cases(input, output);
var
i : integer;
begin
repeat
write( 'Enter an integer, 0 to end : ' );
readln(i);
case i of
0:;
1:i:=i*2;
2:i:=i*3;
3:i:=i*4;
end;
writeln(i);
until i = 0;
end.